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RRR RRR 
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**F ILE**1D**BASCVTRP 
BBBBBBBB AAAAAA SSSSSSSS cccccccc CVV VV TTTTTTTTITT RRRRRRRR PPPPPPPP 
BBBBBBBB AAAAAA SSSSSSSS ccccecccce =v VV TTTTTTTTTT RRRRRRRR PPPPPPPP 
BB AA AA SS cc VV VV TT RR RR PP PP 

6B A AA SS cc VV vv TT RR RR PP PP 
A AA SS cc VV VV TT RR RR PP PP 
Ab AA SS cc VV VV TT RR RR PP PP 

BBBBBBBB AA AA SSSSSS CC VV VV TT RRRRRRRR PPPPPPPP 
AA AA SSSSSS cc VV VV TT RRRRRRRR PPPPPPPP 

BB BB AAAAAAAAAA SS CC VV VV TT RR RR PP 

BB BB AAAAAAAAAA SS CC VV VV TT RR RR PP 

BB BB AA AA ss CC VV VV TT RR RR PP 

BB BB AA AA ss CC VV VW TT RR RR PP 

BBBBBBBB AS AA SSSSSSSS cccccccc VV TT RR RR PP 

BBBBBBBB AA AA SSSSSSSS cccccccc VV TT RR RR PP 

LL III] SSSSSSSS 

LL HII! SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL HI] SSSSSSSS 
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BASSCVTRP = Convert real to packed 18-58-1984 2 YY: 716: 43 AX-11 BLi iss 
14-Sep-1984 11:54: BASRTL” SRC 
1 0001 XTITLE "BASSCVTRP = Convert real to packed’ 
§ Oe MODULE BASSCVTRP ( ! Con ce cet to packed 
00 IDENT = '1=004' ! File: BASCV PBS Edit: PLL1004 
4 004 0 d= 
5 0005 1 BEGIN 
6 8008 1! 
4 sat 4 : ARES ECSSSSS CASTE LETT TCT Tec C TTT TCT T TTI STITT SIT T ITT TLL TTT TLTitiitititity 
'@ * 
9 0009 1 !* COPYRIGHT (c) 191., 1980, 1982, 1984 * 
10 0010 1 !* DIGITAL EQUIPMENT *ZORPORATION, ” MAYNARD. MASSACHUSETTS. * 
13 Bota : :* ALL RIGHTS RESERVED. * 
Z ® 
i $618 1 !® THIS SOFTWARE IS A gt el UNDER A LICENSE AND MAY BE USED AND CoPtED * 
14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
15 0015 1 !* INCLUSION OF THE ABOVE gti NOTICE. THIS SOFTWARE OR ANY OTHER * 
16 0016 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
18 pais : be TRANSFERRED. * 
‘® ® 
20 0020 1 !« pe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
$8 or : :* CORPORATION. * 
is ® 
24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ’ 
26 0026 1 !* * 
e7 0027 1 !* * 
28 C028 1 eae eee eee eR RARER ERROR EEE AERA EREEEEE 
29 ih $4 1! 
30 0030 1 
EET tacit: ste Language 5 
‘ : asic Language Support 
35 0083} | — 
34 0034 1 ! ABSTRACT: 
35 0035 1! 
36 0036 1 ! This module contains routines to convert real data types to packed decimal. 
He i t4 : It also contains routines to convert from packed to a real type. 
39 0039 1 ! These jacket routines are necessary because the OTS routines are JSB routines 
40 0040 1 ! and use RI to gees a parameter. If an error occurs R9 will not automatically 
41 0041 1 ! be restored and the Basic compiler expects R9 to point at some local storage. 
rh} Ooe$ ’ } Note that CALL entry points cause R9 to be saved in the frame. 
rt boee ' ENVIRONMENT: Runs at any access mode - AST reentrant 
$8 anes : : AUTHOR: Pamela L. Levesque, CREATION DATE: 15-April-1982 
48 0048 1 ! MODIFIED BY: 
49 0049 1! 
50 0050 1 ! 1-001 - Original. PLL 15-Apr-1982 
51 0051 1 ! 1-002 - Clean up some comments. PLL 21-Apr-1982 
52 6036 1 ! 1-003 = Add entry points for rounding. PLL 7-Jun-1982 
53 053 1 ! 1-004 - Before reportin ng decimal overflow error, must check BASIC frame to 
54 Boge 3 ensure that as” ERFLOW=NODEC'' was not specified during the compile. 
55 055 1! DG 7-Mar-19 
56 B026 1 !e- 
57 0057 1 
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BASSCVTRP = Convert real to packed 
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AX-11 Oi rege V4.0-74 
BASRTL.SRCJBASCVTRP.B32;1 


REGISTER = 8, REGISTER = 9) 


float to packed 
double to packed 
Biiest to packed 
float to packed 
float to packed (rounded) 
double packed (rounded) 


Cad 
°o 


float to packed (rounded) 
float to packed (rounded) 
packed to float 
packed to double 
float 


packed to 
float 


packed to 


System symbols, typically from SYS$LIBRARY:STARLET.L32 


Define PSECT declarations macros 
BSF symbols 


! Frame pointer 


' search back for Basic frame 


Declarations - 

59 058 1 XSBTTL ‘Declarations’ 

60 059 1! 

61 060 1 ! SWITCHES: 

Bie Bid 

4 Bpe7 } SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
66 0065 1! 

67 Boe 1 ! LINKAGES: 

68 067 1! 

69 0068 1 

70 0069 1 LINKAGE 

71 0070 1 JSB_CVT = JSB (REGISTER = 6, REGISTER = 7 

’ 9071 : PRESERVE (2, 8, 4, 5, 10, 14) 
74 007 1 ! TABLE OF CONTENTS: 

75 0074 1! 

76 0075 1 

77 0076 1 FORWARD ROUTINE 

78 0077 1 

79 0078 1 BASSCVTFP : NOVALUE, ' convert 
80 0079 1 BASSCVTDP : NOVALUE, ' convert 
81 0080 1 BASSCVTGP : NOVALUE, ' convert 
82 0081 1 BASSCVTHP : NOVALUE ' convert 
ae 0082 1 BASSCVTRFP : NOVALUE, i convert 
84 0083 1 BASSCVTRDP OVALUE, ' convert 
85 0084 1 BASSCVTRGP : NOVALUE, ' convert 
86 0085 1 BASSCVTRHP OVALUE, ' convert 
87 0086 1 BASSCVTP NOVALUE, ' convert 
88 0087 1 BASSCVTPD : NOVALUE, ' convert 
8 00 1 BASSCVTPG : NOVALUE, ' convert 
90 0089 1 BASSCVTPH : NOVALUE; ' convert 
91 0090 1 

92 0091 1! 

93 0092 1 ! INCLUDE FILES: 

94 0093 1! 

95 0094 1 

96 0095 1 LIBRARY ‘RTLSTARLE'; ! 
97 0096 1 

98 0097 1 REQUIRE ‘RTLIN:RTLPSECT'; ! 
ie) 019 1 REQUIRE ‘RTLIN:BASFRAME.REQ'; ! 
100 0395 1 
101 0396 1! 
10¢ 0397 1 ! MACROS: 
10 0398 1! 
104 0399 1 

105 0400 1 MACRO 

106 40401 1 FIND FRAME (F) = 

107 M pene 1 BEGIN 

108 ™ 0403 1 

109 M0404 1 BUILTIN 

110 ™ 0405 1 FP; 

111 ii pene 1 

112 ™ 0407 1 F = .FP; 

113 M pene 1 dO 

114 ™ 0409 1 BEGIN 

115 M0410 1 F = .F CBSFSA_SAVED_FP); 


a 
} 
| 


D 
ke SCVTRP BASSCVTRP = Convert real to packed 19-3 


Declarations 


3 116 m0411 1 END 
; ii M tig 1 UNTIL (.F CBSFSA_HANDLER] EQLA BASSHANDLER OR 
3 118 M0415 1 -F EQ 0); 
: oi M0414 1 
; 10 M0415 1 END; 
s ‘ey 16 1%; 
3; 3 ¢ Jae 2 
= 418 1 ! EQUATED SYMBOLS: 
> 124 419 1! 
s tes 420 1! NONE 
> 126 0421 1! 
3 Yer 4 1 ! FIELDS: 
; 128 4 ee 
; 129 0424 1! NONE 
; 130 0425 1! 
; #1351 0426 1 ! PSECTS: 
; 13 0427 1! 
3 1¢7 ot : : DECLARE _PSECTS (BAS); ! Declare PSECTs for BAS$ facility 
s 13 0430 1 ! OWN STORAGE: 
3s 61% 0431 1! 
3 sr ett ,} NONE 
; «138 04335 1! 
; ih 0434 1 ! EXTERNAL REFERENCES: 
: 140 0435 1! 
; «(141 0436 1 
> 142 0437 1 EXTERNAL ROUTINE 
3; 143 0438 1 
; 1446 0439 1 BASSHANDLER 
3 145 0440 1 OTSSCVTFP_R9 : JSB_CVT, ! OTS conv float to packed 
3: 146 0441 1 OTSSCVTDP_RO : JSB_CVT, ! OTS conv dbl to packed 
3 (147 0442 1 OTSSCVTGP_RO : JSB_CVT, ! OTS conv gitoes to packed 
3; «148 04435 1 OTSSCVTHP_RO : JSB CVT ' OTS conv hfloat to packed 
> 149 0444 1 OTSSCVTRFP_RO : JSB_Cvf, i OTS conv float to packed (rounded) 
; 150 0445 1 OTSSCVTRDP_RO : JSB_CVT, ! OTS conv dbl to packed (rounded) 
g V1 0446 1 OTSSCVTRGP_RO : JSB_CVT, ! OTS conv gfloat to packed (rounded) 
; 13¢ 0447 1 OTSSCVTRHP_RO : JSB_CVT, ! OTS conv hfloat to packed (rounded) 
3 15 0448 1 OTSSCVIPF_RO : JSB_CVT, ! OTS conv packed to float 
s 154 0449 1 OTSSCVTPD_RO : JSB_CVT, ! OTS conv packed to dbl 
s 999 beee 1 OTSSCVTPG_RO : JSB_CVT, ! OTS conv packed to gfloat 
3: 156 451 1 OTSSCVTPH_RO : JSB CVT, ! OTS conv packed to hfloat 
3 4 34 36 36 ; BASSSSIGNAL : NOVACUE; ! signal non-fatal error 
: 159 0454 1 EXTERNAL LITERAL _ ! Condition value symbols 
: 160 455 1 BASSK_DECERR : UNSIGNED (8); ! decimal error or overflow 


. 
| 
8 
| BASSCVTRP BASSCVTRP = Convert real to packed 16-Sep-1984 90: 16:43 AX=11 Bliss-32 V4.0-74 Page 4 
1-004 BASSCVT'FP = Convert float to packed 14-Sep-1984 54:49 BASRTL.SRCJBASCVTRP.B32;1 (3) 
3 16¢ $ 1 ZSBTTL “BASSCVT'FP = Convert float to packed’ 
: 16 4 1 GLOBAL ROUTINE BASSCVTFP ( ! Convert float to packed 
> 164 8 1 DEST, ! place to store conv. number 
; 165 4 1 DESTLEN, ! number of digits in dest 
: 166 460 1 SRC, ' number to be converted 
; 16 461 1 SCALE ! power of ten to mult src 
; 168 46 1 ) : NOVALUE = 
3 19? 0465 1 
; 170 464 1 S44 
; 1¢) rer : } FUNCTIONAL DESCRIPTION: 
; 178 be Converts a single floating number to packed. 
: 174 466 1! 
3 175 469 1 ! CALLING SEQUENCE: 
s 17% 470 1! 
: 177 0471 1! BASSCVTFP (DEST.wp.r, DESTLEN.rl.v, SRC.rf.r, SCALE.rl.v) 
: 178 oh) 1! 
; 179 047 1 ! FORMAL PARAMETERS: 
; 180 0474 1! 
> «(181 0475 1! DEST.wp.r place to store the converted number 
3 \s¢ 0476 1! DESTLEN.rl.v number of digits in the destination 
; Ww 0477 1! SRC.rf.r number to be converted 
; «6184 0478 1! SCALE.rl.v power of ten by which the internal 
>; «6185 0479 1! peer goreeas ten of the sourc must be 
: 186 0480 1! multiplied to scale the same as the 
; 187 0481 1! internal representation of the dest. 
; 188 0482 1! 
3; «6189 0483 1 =! IMPLICIT INPUTS: 
; 190 0484 1! 
: «191 0485 1! NONE 
; 138 0486 1! 
: #19 0487 1 ! IMPLICIT OUTPUTS: 
3 6194 0488 1! 
; 195 0489 1! NONE 
; 4196 0490 1! 
: 197 0491 1 ! COMPLETION STATUS: 
; 198 0492 1! 
3; 199 04935 1! NONE 
; $00 0494 1! 
; 201 0495 1 ! SIDE EFFECTS: 
3 $06 0496 1! ; 
; 20 0497 1! May signal decimal overflow if an error occurs in the OTS 
: 204 0498 1! conversion routine 
s 205 44 . 7 
3; 206 500 1 !-- 
3 te 0501 1 
: 208 Beng BEGIN 
: 209 050 
; 10 0504 LOCAL 
: 11 505 FMP : REF BLOCK CO,BYTE) FIELD (BSFSFCD), ' Ptr to BASIC frame 
; \¢ 208 STATUS; 
ar 4 50 
3 14 508 STATUS = OTSSCVIFP_RO (.SCALE, .SRC, .DESTLEN, .DEST); 
3 15 509 If (NOT .STATUS) 
3 16 510 N 
: 17 0511 BEGIN 
; 218 0512 


‘marie 
| 
| 


pA SCVTRP 


; Routine Size: 
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F 8 
BASSCVTRP = Convert real to packed 19s Sep =13 4 6:29 AX-11 Bliss-32 V4.0-74 Pa 
BASSCVT FP = Convert float tb packed 14-Sep t 99: 8 33 BASRTL.SRC BASCVT tae 68551 ots 
313 FIND FRAME (FMP) Fi nd BA si. frame 
14 LF _(CFMP NEQ 0) in (FMP CBSFS$W_FCD_FLAGS] AND BSF SM mf CD DV) NEG 0 
212 ! If “/JOVERFLOW = NODEC’' not set 
218 BASSSSIGNAL (BASSK_DECERR); 
518 END; 
519 END; ! routine BASSCVTFP 
«TITLE BASSCVTRP BASSCVTRP = Convert real to packed 
IDENT \1-004\ 
~EXTRN BASSHANDLER OTSSCVTFP_RO 
-EXTRN OTSSCVTDP_R9O, OTSSCVTGP RO 
eEXTRN OTSseVINPA RY, OTSSCVTRFP_RO 
EXTRN OTSSCVTROP RO, OTS$SCVTRGP_RO 
EXTRN OTSSCVTRHP-RO, OTSSCVTPF R 
EXTRN OTSSCVTPD_R9, OTSS$CVTPG_RO 
EXTRN OTSSCVTPH"R9. BASSSSIGNAL 
EXTRN BASSK_DECERR’ 
PSECT _BASSCODE,NOWRT, SHR, PIC,2 
OFFC 00000 -ENTRY BASSCVTFP, Save R2,R3,R4,R5,R6,R7,RB,R9,- ; 
59 04 AC 00 00002 MOVL best. RO : 
58 08 AC DO 00006 MOVL DESTLEN, R8 : 
57 OC AC DO OOOODA MOVL SRC, R7 : 
56 10 ac 00 0000 MOVL SCALE, R6 3 
000000006 00 16 0001 JSB OTSSCVTFP_RY : 
28 50 €8 00018 BLBS STATUS, 38 : 
50 5D DO 00018 MOVL FP, FMP : 
50 OC AO DO OOO1E 18: MOVL 12(FMP), FMP : 
51 000000006 00 9€ 000 MOVAB BASSHANDLER, R1 : 
51 60 01 000 CMPL (FMP), R1 : 
04 13 0002C BEQL 2s s 
50 05 000¢e TSTL FMP : 
EC 12 00030 BNEQ 1$ : 
0 D5 00032 2$: TSTL FMP 3 
10 13 00034 BEQL 3$ : 
0B E6 Ad OA éI 90036 BBC #10, -26(FMP) : 
7E 006 8F 9A 00038 MOVZBL #BASSK_DECERR. =(SP) : 
000000006 00 01 FB 0003F CALLS #1, BASS$S$SIGN : 
04 00046 3$: RET : 
71 bytes, Routine Base: _BASSCODE + 0000 


5 
(3) 


0516 
0519 


segreerecet sen of the sourc must be 
multiplied to scale the same as the 
internal representation of the dest. 


8 
BASSCVTRP ASSCVTRP = Convert real to packed 18-Sep-1984 90: 16:48 Ax-11 at V4.0-74 
\- ASSCVTDP = Convert double to packed 14-Sep-1984 254:49 BASRTL.SRCJBASCVTRP.B32;1 
7 2 0 ZSBTTL ‘BASSCVTDP = Convert double to packed' 
8 1 GLOBAL ROUTINE BASSCVTDP ( !' Convert double to packed 
S 5 ¢ DEST, ' place to store conv. number 
0 2 DESTLEN, ! number of digits in dest 
1 4 SRC, ' number to be converted 
4 525 SCALE ! power of ten to mult src 
5 § ) : NOVALUE = 
4 5 
5 528 + 
% ; ; FUNCTIONAL DESCRIPTION: 
8 H 1 Converts a double floating number to packed. 
re ; : CALLING SEQUENCE: 
gue 232 BASSCVTDP (DEST.wp.r, DESTLEN.rl.v, SRC.rd.r, SCALE.rl.v) 
is $ FORMAL PARAMETERS: 
446 DEST.wp.r place to store the converted number 
ser DESTLEN.rl.v number of digits in the destination 
48 SRC. rd.r number to be converted 
$38 SCALE.rl.v power of ten by which the internal 
$2) 
$38 


OL Ab Ab Abedb Abb Abbb hh dh bh hh ah ah ah ah ah ah ah ah shal 


STATUS = OTSSCVTDP_RO (.SCALE, .SRC, .DESTLEN, .DEST); 
If (NOT .STATUS) 


N 
BEGIN 


SGOOSOSOCOSOSOOOOSOSOCOOS COO OOSOSSSOSSSOSOSOSOOOCO OOOO OCOOOCOOOOOOOOOOOOOCOOoOO aw 
PEPE III III at at st st at at at nt tt i hh hk hh ho tte 4 


3 

38 
39 
40 
: 
a3 
44 
45 
46 

254 47 IMPLICIT INPUTS: 

255 48 

256 a NONE 

$20 50 
58 51 IMPLICIT OUTPUTS: 

259 28 

260 5 NONE 

261 54 

$6¢ 55 COMPLETION STATUS: 

$0 56 
64 57 NONE 
65 58 
6¢ 344 SIDE EFFECTS: 

268 561 May signal decimal overflow if overflow occurs in the OTS 
69 266 conversion routine 
70 56 
71 564 -- 

7 565 
7 566 BEGIN 
74 567 
75 208 LOCAL 
76 56 FMP : REF BLOCK CO,BYTE) FIELD (BSFSFCD), ! Ptr to BASIC frame 
77 57 STATUS; 
57 
57 
57 
57 
57 
57 


c- --— on ———— SN — 


H 8 
CVTRP BASSCVTRP = Convert real to packed 16-Sep-19 6:29 AX-11 Bliss-32 V4.0-74 Pa 7 
‘paste BASSCVTDP = eet double tb packed 14-Sep eet 99: 48: 3 BASRTL ate Taascv ihe .o3os1 er 
; in LFRAME (FMP); ' Find BASIC frame 
; 285 (CFMP NEG 0) AND (.FMP CBSFSW_FCD_FLAGS] AND BSFSM_FCD DV) NEQO 
3 ! If “/OVERFLOW = NODEC’’ not set 
; EN BASSSSIGNAL (BAS$K_DECERR); 
3 + ! End of routine BASSCVTDP 
OFFC 00000 ENTRY BASSCVTDP, Save R2,R3,R4,R5,R6,R7,R8,R9,- ; 0521 
9 AC DO 00002 MOVL DEST, RO ; 0572 | 
§ 8 AC 00 00006 MOVL DESTLEN, R8 : 
AC DO OO00A MOVL SRC, R7 : | 
6 10 AC 00 000 MOVL SCALE R6 : | 
000000006 00 16 0001 JSB OTS$SCVTDP_RO : | 
8 0 €8 0001 BLBS STATUS, 38 + 0573 
D 00 00018 MOVL FP, FMP : 0577. 
0 oc Ad p 001 MOVL  12¢FMP), FMP : | 
1 000000006 00 ‘ 00 MOVAB BASSHANDLER, R1 ; 
1 60 01 000 CMPL (FMP), RI : | 
4 13 0002C BEQL «6-2 ; 
0 5 000 TSTL FMP : 
EC 1 BNEQ ~='1$ F 
DS 00032 2s: TSTL FMP : 0578. 
10 1 BEQL 46s -3$ ; | 
08 £6 AO A gi 0 BBC #10, -26(FMP), 3$ : | 
7E 006 8F 9A 00038 MOVZBL #BA Ask DECERR, =(SP) ; 0580. 
000000006 00 1 FB 0003F CALLS #1, BASS$SI TONAL F 
04 00046 3$: RET F 


; Routine Size: 71 bytes, Routine Base: _BASSCODE + 0047 


8 
ASSCVTRP BASSCVTRP = Convert real to packed 1b-se -| 16:29 AX-11 Bliss-32 V4.0-74 
beasts BASSCVTGP = Convert gfloat t packed 1 =3007 1382 99:38:28 EBASRTL SRe BASCVTAP {08551 
3 5 ZSBTTL “BASSCVTGP = Convert gfloat to packed’ 
GLOBAL a's 2 BASSCVIGP ( ! Convert gfloat to packed 
43 P ! place to store conv. number 
ESTLEN, ! number of digits in dest 
SRC, ' number to be converted 
SCALE ! power of ten to mult src 
) : NOVAL = 


tee 


i FUNCTIONAL DESCRIPTION: 
Converts a g floating number to packed. 

i CALLING SEQUENCE: 

i BASSCVTGP (DEST.wp.r, DESTLEN.rl.v, SRC.rg.r, SCALE.rl.v) 

i FORMAL PARAMETERS: 


Ahab Ab Ab Ad 


pest -up.e place to store the converted number 
DESTLEN.rl.v number of digits in the destination 
SRC.rg.r number to be converted 

SCALE.rl.v power of ten by which the internal 
representation of the sourc must be 
multiplied to scale the same as the 
internal representation of the dest. 


SESS 


EWN LSOONAAR WN OOR OAR WN DODO NORMS 


PERE ERI RDI RINDI IN a at a nn nh nh th tt ss a ss 9 ss Ss a ss 


NONE 
i IMPLICIT OUTPUTS: 
i NONE 
i COMPLETION STATUS: 
NONE 
i SIDE EFFECTS: 


OOWDNAVE WN “OOO VOU SWwh—O 
o 


IIAP POPU PIPIPINPININD 2 tt OS 
ey sive ther) 
oa o 
PMIMIPEPIPINIDS 2 A OO OO 


May signal decimal overflow if that error occurs in the OTS 


' 
t 
' 
' 
1 
‘ 
! 
' 
' 
' 
1 
! 
' 
' 
¢ 
' 
: IMPLICIT INPUTS: 
1 
' 
1 
' 
' 
‘ 
1 
4 
' 
t 
! 
1 
a 
conversion routine 
‘ 


8 
a 
8 0 
) 1 BEGIN 
40 ; 
41 LOCAL 
§ 4 FMP : REF BLOCK CO,BYTE) FIELD (BSFSFCD), ' Ptr to BASIC frame 
5 STATUS; 
$ 


STATUS = OTSSCVIGP_RO (.SCALE, .SRC, .DESTLEN, .DEST); 
If (NOT .STATUS) 


THEN 
BEGIN 


—-OOe 


3 


F CvTRP BASSCVTRP = Convert real to packed et Sep-19 AX-11 Bliss-32 V4.0-74 P 9 
essen BASSCVTGP = Convert gfloat . packed meee 8Re PPISi23 | PANS AT Ob teseke W4n0-285., o9e 5) 
: F ND FRAME ( ind BASIC frame 
3 ? g (SFRP NEO 0) AND (FMP CBSFSW_FCD_FLAGS] AND ast in, FCD DV) NEQ 0 “ 

3 ¢ 4 HEN ! “/OVERFLOW = NODEC’’ not set 
: é BASSSSIGNAL (BASSK_DECERR); 
; 355 END; 
Py Py : tnd of routine 
4 8 END ! End of ine BASSCVTGP 
OFFC 00000 ENTRY BASSCVIGP, Save R2,R3,R4,R5,R6,R7,28,R9,- ; 0586 
9 04 AC DO 00002 MOVL vest. R9 + 0637 
5 08 AC DO 00006 MOVL DESTLEN, R8 : 
AC DO OO00A MOVL SRC, R7 : 
6 10 AC 00 000 MOVL SCALE R6 : 
000000006 16 0001 JSB OTS$CVTGP_RO : 
28 E8 0001 BLBS STATUS, 3$ : 0638 
0 D 00 00018 MOVL FP, FMP + 0642 
30 oc Ad b0 O01g 1$ MOVL 12¢FMP), FMP : 
1 000000006 09 i 00 MOVAB BASSHANDLER, R1 : 
51 D 00 9 CMPL (FMP), RI : 
4 13 002¢ BEQL = 2$ F 
0 D 900 E TSTL FMP ; 
EC 12 000 BNEQ ~=«'1$ ; 
0 05 00032 2s: TSTL FMP + 0643 
10 1 90034 BEQL 6-3 : 
0B E6 OA gi 0036 BBC #10, -26(FMP), 3$ : 
ze 006 8F 9A 90058 MOVZBL mess DECERR. -(SP) 3 0645. 
000000006 0 01 FB 0003F CALLS #1, BASSS$SIGNAL : 
04 00046 3$: RET : 0648 


; Routine Size: 71 bytes, Routine Base: _BASSCODE + O08E 
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Kk 8 
RP = Convert real to packed 16-Sep-1984 00:16:29 AX-11 Bliss- 
HP - Convert hfloat tb packed 12-860=1 382 90:38:23 BASRTL.SRCIB 


ZSBITL ‘BASSCVTHP = Convert hfloat to packed’ 
GLOBAL ROUTINE BASSCVTHP ( ' Convert hfloat to packed 
° place to store conv. number 
DESTLEN, number of digits in dest 
SRC, number to be converted 
SCALE 
) : NOVALUE = 


a4 


32 
ASC 


power of ten to mult src 


* FUNCTIONAL DESCRIPTION: 

Converts a h floating number to packed. 
CALLING SEQUENCE: 

BASSCVTHP (DEST.wp.r, DESTLEN.rl.v, SRC.rh.r, SCALE.rl.v) 
FORMAL PARAMETERS: 

DEST.wp.r place to store the converted number 


DESTLEN.rl.v number of digits in the destination 
rhe number to be converted 
SCALE.rl.v power of ten by which the internal 


reoreseotat ten of the sourc must be 
multiplied to scale the same as the 
internal representation of the dest. 

IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION STATUS: 


May signal decimal overflow if that error occurs in the OTS 
conversion routine 


' 
' 
' 
i SIDE EFFECTS: 
NONE 
BEGIN 
LOCAL 
FMP: REF BLOCK CO,BYTE) FIELD (BSFSFCD), ! Ptr to BASIC frame 


STATUS = OTSSCVTHP_RO (.SCALE, .SRC, .DESTLEN, .DEST); 
IF (NOT .STATUS) 


THEN 
BEGIN 


v4. 
vT 


——_—- —- 
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ASSCVTRP BASSCVTRP = Convert real to packed 1b-se =1984 00:16:29 AX-11 Bliss-32 V4.0-74 
tit BASSCVTHP = Convert hfloat tb packed 1 ~ep-19 4 90:10:28 BASRTL.SRC easy tae. o8 31 
3 615 7 FIND FRAME (FMP); ! Find BASIC frame 
s 21g a IF (FMP NEQ 0) AND (.FMP CBSFSW_FCD_FLAGS] AND at we ogc’ : ‘ 
5 ! s no 
; 218 709 BASSSSIGNAL (BASSK_DECERR); = 
; rh 711 END; 
: 421 772 END; ! End of routine BASSCVTHP 
OFFC 00000 eENTRY BASSeY INP. Save R2,R3,R4,R5,R6,R7,R8,RI,= 
59 04 AC v0 00002 MOVL DEST, RO 
28 08 AC 4 Boone MOVL DESTLEN, R8 
5 of AC DO OQOO0A MOVL SRC, R7 
56 1 AC p00 0000 MOVL SCALE, R6 
000000006 00 i} i$ JSB OTSSCVTHP_R9O 
¢8 0€ 001 BLBS STATUS, 35 
0 5D 00 papte MOVL FP, FMP 
50 0c AO pO B05 1$: MOVL 12(FMP), FMP 
51 00000000G 00 9E 0002 MOVAB BASSHANDLER, R1 
51 60 Di 00029 CMPL tet R1 
04 13 0002C BEQL $ 
50 D5 404: TSTL FMP 
EC ig 00030 BNEQ 1$ 
50 05 00032 2$: TSTL FMP 
10 13 00034 BEQL 3$ 
08 E6 AO OA €1 00036 BBC #10, -26(FMP) 
7E 00G 8F 9A 00038 MOVZBL M#BASSK_DECERR, -(SP) 
000000006 00 01 FB 0003F CALLS #1, BASSSSIGN 
04 00046 3$: RET 


; Routine Size: 


71 bytes, 


Routine Base: 


_BASSCODE + 00D5 


4 8 
ASSCVTRP BASSCVTRP = Convert real to packed 16-Sep-1984 90:16:43 AX-11 Oi legate V4.0-74 Page 12 
-004 BASSCVTRFP = Convert float to packed (rounded) 14-Sep-1984 11:54:49 BASRTL.SRCJBASCVTRP.B32;1 (7) 
: 423 o713 1 ZSBTTL "BASSCVTRFP = Convert float to packed (rounded)' 
> 426 714 1 GLOBAL ROUTINE BASSCVTRFP ( ' Convert float to packed (rounded) 
; 425 715 (1 DEST, ! place to store conv. number 
3 4 § rg 1 DESTLEN, ! number of digits in dest 
3 6 71 1 SRC, ' number to be converted 
; 428 pris 1 SCALE ! power of ten to mult src 
: 429 719° «1 ) : NOVALUE = 
; 4350 Bf * 
: $3) 721 1 S44 
3s 6 ¢ 07 ¢ 1 ! FUNCTIONAL DESCRIPTION: 
3 43 07 1 : ; 
3 2 ¢ 4 : : } Converts a single floating number to packed using rounding. 
: $38 07 § 1 ! CALLING SEQUENCE: 
3 437 07 1! 
: 438 0728 1! BASSCVTRFP (DEST.wp.r, DESTLEN.rl.v, SRC.rf.r, SCALE.rl.v) 
3; 439 1644 1! 
; 440 0730 1 ! FORMAL PARAMETERS: 
3 6441 0731 1! 
3 44 O86 1 3 DEST.wp.r place to store the converted number 
: 44 0733 1! DESTLEN.rl.v number of digits in the destination 
> 444 0734 1! SRC. rf.r number to be converted 
: 445 0735 1! SCALE.rl.v power of ten by which the internal 
; 446 0736 1! veoceopreat ten of the sourc must be 
3 447 0737 1! multiplied to scale the same as the 
3; 448 0738 1! internal representation of the dest. 
: 449 0739 1! 
; 450 0740 1 ! IMPLICIT INPUTS: 
3: 6451 0741 1! 
3; 452 Bree 1! NONE 
3; 453 0743 1! 
3 6454 0744 1 ! IMPLICIT OUTPUTS: 
3; «455 0745 1! 
3; 456 0746 1! NONE 
3; 457 0747 1! 
; 458 0748 1 ! COMPLETION STATUS: 
3; 459 0749 1! 
; 460 0750 1! NONE 
3; 461 0751 1! 
: re ters 1 ! SIDE EFFECTS: 
3; 46 07535 1! : f 
; 464 0754 1! May signal decimal overflow if an error occurs in the OTS 
3; 465 0755 1! conversion routine 
3; 466 o726 1! 
3: 467 0757 1 !-- 
; 468 0758 1 
3: 469 0759 BEGIN 
; 470 0760 
3: 471 0761 LOCAL 
3 472 166 FMP : REF BLOCK CO,BYTE) FIELD (BSFSFCD), ' Ptr to BASIC frame 
3 ot? St STATUS; 
: 675 0765 STATUS = OTSSCVTRFP_RO (.SCALE, .SRC, .DESTLEN, .DEST); 
$ ors 706 IF (NOT .STATUS) 
; 47 76 THEN 
; 4678 768 BEGIN 
3: 479 0769 


| BASSCVTRP 
1-004 


Sees ecerecess 
se 
Coco: 
wr 


; Routine Size: 


VTRP = 
Vv 


08 


71 bytes, 


TRFP = Convert float to packed (rounded) 


Nn 8 
Convert real to packed 16-Sep-1984 :1 
: 1o=8e8- 188s 99:8 


FIND FRAME (FMP); 


IF (TEMP NEQ 0) AND (.FMP CBSFS$W_FCD_FLAGS] AND 
BASSSSIGNAL (BASS$K_DECERR); 
END; 
END; 
OFFC 00000 ENTRY 
59 04 AC D0 00002 MOVL 
58 08 AC dO 00006 MOVL 
57 OC AC DO OOODA MOVL 
56 10 AC D0 0000 MOVL 
000000006 00 16 0001 JSB 
2B 50 €8 0001 BLBS 
50 5D DO 0001B MOVL 
50 0c Ad 00 O001E 18: MOVL 
51 000000006 00 9E 00022 . MOVAB 
51 60 D1 00029 CMPL 
04 13 0002C BEQL 
50 05 0002E TSTL 
EC 12 00030 BNEQ 
50 D5 00032 2s: TSTL 
10 13 00034 BEQL 
E6 Ad OA £1 00036 BBC 
7E 006 8F 9A 00038 MOVZBL 
000000006 00 01 FB 0003F CALLS 
04 00046 38: ET 
Routine Base: _BASSCODE + 011C 


6 
4 
' 
B 
1 


cree Bliss-32 oF ag 
BASRTL.SRCJBASCVTRP.B32;1 


29 

49 

Find BASIC frame 
FSM_FCD DV) NEQ 0 

If “/OVERFLOW = NODEC’' not set 


Page 13 
* 


} 
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|e + a BASSCVTRP = Convert real to packed 16-Sep-1984 90:16:43 ered Bliss-32 va 0-098 Page 14 
1-004 BASSCVTRDP = Convert double to packed (rounded) 14-Sep-1984 11:54:49 BASRTL.SRCJBASCVTRP.B32;1 (8) 
: 488 0777 1 XSBTTL ‘BASSCVTRDP = Convert double to packed (rounded) ' 
> 4489 bf 78 1 GLOBAL ROUTINE BASSCVTRDP ( ' Convert double to packed (rounded) 
; 490 779 «1 T, ! place to store conv. number 
; 491 0780 1 DESTLEN, ! number of digits in dest 
; 49 0781 1 ‘ ' number to be converted 
3; 49 b78¢ 1 SCALE ! power of ten to mult src 
> 494 0785 1 ’ : NOVALUE = 
; 495 0784 1 
: 496 0785 1 !++ 
; 497 0786 1 ! FUNCTIONAL DESCRIPTION: 
> 498 0787 1! 
; 499 0788 1! Converts a double floating number to packed using rounding. 
; 500 0789 1! 
; 501 0790 1 ! CALLING SEQUENCE: 
; 0791 1! 
: rt 4434 ; BASSCVTRDP (DEST.wp.r, DESTLEN.rl.v, SRC.rd.r, SCALE.rl.v) 
; 305 0794 1 ! FORMAL PARAMETERS: 
; 506 0795 1! 
; 507 0796 1! DEST.wp.r place to store the converted number 
; 508 0797 1! DESTLEN.rl.v number of digits in the destination 
; 509 0798 1! SRC.rd.r number to be converted : 
; 3 0799 1! SCALE.rl.v power of ten by which the internal 
3 3 0800 1! an ph oe be gh of the sourc must be 
5 Sie 0801 1! multiplied to scale the same as the 
s 313 0802 1! internal representation of the dest. 
> 514 03803 1! 
s. $3 08046 1 ! IMPLICIT INPUTS: 
; 516 0805 1! 
Te aha 0806 1! NONE 
s S18 0807 1! 
. 31> 0808 1 ! IMPLICIT OUTPUTS: 
; 520 0809 1! 
s Ser 0810 1! NONE 
3 See 0811 1! 
3 des 0812 1 ! COMPLETION STATUS: 
; 524 08135 1! 
3 See 0814 1! NONE 
3; 3e8 0815 1! 
g Ser 0816 1 ! SIDE EFFECTS: 
s te 0817 1! : : A 
3. der 0818 1! May signal decimal overflow if overflow occurs in the OTS 
3 330 0819 1! conversion routine 
3 331 ee > ve 
; 532 821 1 !-- 
s 339 08 § 1 
; 534 082 BEGIN 
s 339 0824 
3 «638 0825 LOCAL 
3; 537 0826 FMP : REF BLOCK CO,BYTE) FIELD (BSFSFCD), ! Ptr to BASIC frame 
; 538 0827 2 STATUS; 
; 539 0828 
3 re B88) STATUS = OTSSCVTRDP_RO (.SCALE, .SRC, .DESTLEN, .DEST); 
: 41 830 IF (NOT .STATUS) 
3 2e6 0831 THEN 
3; «54 bass BEGIN 
3 544 083 


2 ee — 


oer 


af 


] 
BASSCVTRP BASSCVTRP = Convert real to packed 1$-sep-19 4 90:1] 
1-004 BASSCVTRDP = Convert double to packed (rounded) 14-Sep-1984 
s $45 834 FIND “teen (FMP) 
; 248 08 5 IF (TEMP NEQ 0) AND (.FMP CBSFS$W_FCD_FLAGS] AND 
; 548 08 $ BASSSSIGNAL (BASSK_DECERR); 
3; 549 0838 
3 350 0839 END; 
3 331 0840 1 END; ! End of 
OFFC 00000 ENTRY 
59 04 AC 00 00002 MOVL 
58 08 Ac DO 00006 MOVL 
57 OC AC DO OO00A MOVL 
56 10 AC 00 OO00E MOVL 
000000006 00 16 00012 JSB 
28 50 €8 00018 BLBS 
50 5D DO 0001B MOVL 
50 OC AO DO OOOIE 1$: MOVL 
51 000000006 00 9E 00022 MOVAB 
51 60 Di 00029 CMPL 
04 13 0002C BEQL 
50 D5 0002E TSTL 
EC 12 te BNEQ 
50 D5 00032 2$: TSTL 
10 13 00034 BEAL 
0B E6 AO OA €1 00036 BB 
7E 00G 8F 9A 00038 MOVZBL 
000000006 00 01 FB 0003F CALi S 
04 00046 3$ RET 


; Routine Size: 71 bytes, Routine Base: _BASSCODE + 0163 


BS 


:29 

249 

Find oy yh 
wie 


CD_Dv) 
OVERFLOW = 


routine BASSCVTRDP 


Boner PYPOMNOM 


"IAD "NOUNKNOUWD 
wv 


PZBANSNWwVAAOWMmM—yP 


zw" 
—"s 
v 


#10, -26(FMP), 3$ 
#BASSK DECERR: -(SP) 
, BASSS$SIGNAL 


AX-11 Bliss-32 V4.0-74 
BASRTL.SRCJBASCVTRP.B32; 1 


NODEC’' not set 


0778 
0829 


0830 
0834_ 


0835 


0837 
0840 


| 
| 
| 
| 
| 
i 


o 
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BASSCVTRP = Convert real to packed 16-Sep-1984 00:16:29 AX-11 Bliss-32 V4.0-74 Page 1 
ASSCV - Convert gfloat to packed (rounde -Sep- 254: ASRTL.S ASCVTRP, 3 ( 
BASSCVTRGP = C fl ked ( d) 14-Sep-1984 54:49 {8 RT RCIB CVTRP.B32;1 9 


ZSBTTL “BASSCVTRGP = Convert gfloat to packed (rounded) ' 
GLOBAL ROUTINE BASSCVTRGP ( ! Convert gfloat to packed (rounded) 
! place to store conv. number 


—@w 
> 
w 
Sad 
oO 
ca 
— 
oe 
v 


SS 


3 $335 1 

>; 554 1 

: 88 i DESTLEN i number of digits in dest 
3 ° ' number o s in des 
3 Sor 0845 1 SRC, ' number to be converted 
; 558 peeg 1 SCALE ! power of ten to mult src 
3; 339 084 1 ) : NOVALUE = 

; 560 bares 1 

; 561 0849 1 !+4+ 

: 206 0850 1 ! FUNCTIONAL DESCRIPTION: 

; 7 $82 i C t floati ber t ked usi di 

3 : onverts a coating number to packed using rounding. 

: 565 bees 1 i ’ 

; 566 0854 1 ! CALLING SEQUENCE: 

; 567 0855 1! 

; 208 Bees : BASSCVTRGP (DEST.wp.r, DESTLEN.rl.v, SRC.rg.r, SCALE.rl.v) 
: 570 0858 1 ! FORMAL PARAMETERS: 

3 Sri 0859 1! 

3 276 0860 1! DEST.wp.r place to store the converted number 

3; OT 0861 1! DESTLEN.rl.v number of digits in the destination 

; 574 0862 1! SRC.rg.r number to be converted 

5 ors 08635 1! SCALE.rl.v power of ten by which the internal 

3; 37% 0864 1! reer yoraeat ten of the sourc must be 

or 0865 1! multiplied to scale the same as the 

; 578 0866 1! internal representation of the dest. 

; 579 0867 1! 

; 580 0868 1 ! IMPLICIT INPUTS: 

> 581 0869 1! 

; 286 0870 1! NONE 

3; 3 0871 1! 

; 584 0872 1 ! IMPLICIT OUTPUTS: 

3 385 0873 1! 

; 586 0874 1! NONE 

s Ser 0875 1! 

; 588 0876 1 ! COMPLET'ON STATUS: 

: 589 0877 1! 

; 590 0878 1! NONE 

3 59 0879 1! 

; 236 0880 1 ! SIDE EFFECTS: 

: 59 0881 1! ‘ 

: 594 0882 1! May signal decimal overflow if that error occurs in the OTS 
: 595 0883 1! conversion routine 

; 596 pare 1! 

3; 597 885 1 !-- 

: 598 0886 1 

: 599 0887 2 BEGIN 

; 600 888 

: 601 889 LOCAL 

; os 890 FMP : REF BLOCK CO,BYTE) FIELD (BSFSFCD), ! Ptr to BASIC frame 
HY oR; B33; STATUS; 

; 605 089 STATUS = OTSSCVIRGP_RO (.SCALE, .SRC, .DESTLEN, .DEST); 

3 O06 894 IF (NOT .STATUS) 

: 60 895 N 

; 608 89 BEGIN 


cc  - 


7 


Ree cca cr Sess sesssseesessseseeseresesensesssenstnesene- 


—__----------- 
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BASSCVTRP BASSCVTRP = Convert real to packed 1§- Sep-1984 9 Ax-11 BL iss -32 vV4.0-74 P 17 
witty BASSCVTRGP = Convert gfloat to ps packed (rounded) 12-80 8- 198 90:38 4 BASRTL.SRC SBASCVTRP.B3 37 nes (9) 
; 610 9 FIND ye (FMP); ! Fin ‘. BASIC frame 
; 611 6 9 IF (CFP NEQ 0) AND (.FMP CBSFSW_FCD_FLAGS] AND BSF SM wfCDeDV) NEG 0 
3 $16 900 HEN ! If “/OVERFLOW = NODEC'’ not set 
3 66) 901 BASSSSIGNAL (BASSK_DECERR); 
> 614 90 
; 615 90 END; 
: 616 0904 END; ! End of routine BASSCVTRGP 
OFFC 00000 ENTRY passerine. Save R2,R3,R4,R5,R6,R7,RB,R9I,- = 0842 
59 04 AC 00 00002 MOVL DEST, RO : 0893 
58 08 ac 00 4464 MOVL DESTLEN, R8 3 
57 0C AC DO OOO0A MOVi SRC, R7 : 
56 10 AC 00 0000 MGVL SCALE, R6 3 
000000006 9° 16 0001 4S8 OTSSCVTRGP_RO : 
8 0 €8 0001 6LBS STATUS, 3$ ; 0894 
0 50 DO 00018 MOVL FP, FMP ; 0898 
50 0c AO 00 9 $ 1$ MOVL 12(FMP), FMP : 
51 00000000G 00 9E 0002 MOVAB BASSHANDLER, R1 : 
51 60 01 00029 CMPL (FMP), R1 3 
04 4 0002C BEQL 2$ 3 
50 05 0002E TSTL FMP : 
gf 12 00030 BNEQ 1$ PF 
0 D5 00032 2$: TSTL FMP ; 0899 
10 13 00034 BEQL 3$ 3 
0B E6 AO OA 4 00036 BBC #10, -26(FMP), 3$ 3 
7E 00G 8F A 00038 MOVZBL #BASSK DECERR, -(SP) ; 0901 
000000006 00 01 FB 0003F CALLS . BASSS$SIGNAL 3 
04 00046 3%: RET ; 0904 


; Routine Size: 71 bytes, Routine Base: _BASSCODE + O1AA 


eee... 


co 


. 
if 


Be Be Oe Se Be Se Se Be Be Be Se Ge Ge Se Se Se Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Gs Se Se Se Se Se Se Ge Fe Se Ge Ge Se Se Ge Ge Se Se Sete 


BASSCVTRP 
1-006 


61 
61 


PAAAAAAAAAAAAAAAAAO 


NOME WN 0 ODNOU EWN "OVO ONOUSWN Oo 


SEPRELESESS, 
@ 


AAPA 


sgeeeesese 


AOoOooon 
NANNY 
wn —-0 0 


BASSCVTRP = Convert real to packed 66-Sep-1984 6:29 AX-11 Bliss-32 V4.0-74 
BASSCVTRHP = Convert hfloat fe pe packed (rounded) 12: b-Sen-1984 90: i 8 ReiB 


905 


3233 


WN O OONA VUES WN “OOOO Ww O0w 


pofleleleleleleleleleolelelealealelo! 


ODOOODOOODOOOOOOOO 


oO 
oO 


PPIPIMININONINONY 2 2 


fei ie ee ee ee eee 


20 


BASRTL.SRC 


1 ZSBTTL "BASSCVTRHP = Convert hfloat to packed (rounded) ° 


GLOBAL ROUTINE BASSCVTRHP ( 


' Convert hfloat to packed (rounded) 
place to store conv. number 

number of digits in dest 

number to be converted 

power of ten to mult src 


DE 
DESTLEN, 


SCALE 
) : NOVALUE = 


* FUNCTIONAL DESCRIPTION: 

Converts a h floating number to packed using rounding. 
CALLING SEQUENCE: 

BASSCVTRHP (DEST.wp.r, DESTLEN.rl.v, SRC.rh.r, SCALE.rl.v) 
FORMAL PARAMETERS: 

DEST.wp.r place to store the converted number 


DESTLEN.rl.v number of digits in the destination 
SRC.rh.r number to be converted 
SCALE.rl.v pouer of ten by which the internal 


peorquresat res of the sourc must be 
tiplied to scale the same as the 
internal representation of the dest. 

IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION STATUS: 


May signal decimal overflow if that error occurs in the OTS 
conversion routine 


SIDE EFFECTS: 
NONE 


BEGIN 
— 
STAT 


STATUS = OTSSCyTANP RO (.SCALE, .SRC, .DESTLEN, .DEST); 
i - STATUS) 


BEGIN 


ane BLOCK CO,BYTE) FIELD (BSFSFCD), ! Ptr to BASIC frame 


BASCVT RP.B3 


31 


c- -—- — — ee 


AX-11 Bliss-32 V4 
BASRTL . SRCJBASCVTRP. -B3 31 


NEG “ 


m/OVERF LOW = NODEC’’ not set 


o 
9A SCVTRP BASSCVTRP = Convert real to packed 18. -S$ep-1984 00:16:2 
BASSCVTRHP = Convert hfloat fo pe packed (rounded) 14- 30-1 38e 99484 : 
3; 675 FIND FRAME (FMP) ind BASIC fram 
E of 308 IF (CFMP NEQ 0) Ano (.FMP CBSFSW_FCD_FLAGS] AND ast sh, FCD_DV) 
: 67 965 $ (BASS$K R 
3 of 366 BASSSSIGNAL (BASSK_DECERR); 
; 680 96 END; 
; 681 968 END; ! End of routine BASSCVTRHP 


OFFC 00000 


ENTRY BASSCVI 
R10,R11 
59 04 aC bdO 00002 MOVL DEST, RO 
38 08 AC Dd 00006 MOVL  DESTLEN, R8 
5 OC AC DO 0000A MOVL SRC, R7 
56 10 ac DO 0000 MOVL SCALE, R6 
000000006 99 16 0001 JSB OTS$SCVTRHP_RO 
28 0 €8 0001 BLBS STATUS, 3 
0 5D DO 00018 MOVL FP, FMP 
50 0c AO 00 85035 1$: MOVL 12(FMP), F 
51 000000006 00 9E 0002 MOVAB BASSHANDLER, 
51 60 D1 00029 CMPL ss (FMP), R1 
04 13 002¢ BEQL 6-2 
50 05 0002€ TSTL FMP 
EC 12 00030 BNEG =‘ 
0 D5 00032 28: TSTL FMP 
10 13 00034 BEQL ©: 3$ 
08 E6 Ad OA él 00036 BBC #10, -26(FMP) 
7E 006 8F 9A 00038 MOVZBL #BASS$K_DECERR. 
000000006 00 01 FB 0003F CALLS #1, BASSSSIGNA 
04 00046 3$: RET 
; Routine Size: 71 bytes, Routine Base: _BASSCODE + O1F1 


0906 
0957 


0958 
0962 


0963 


0965 
0968 
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BASSCVTRP = Convert real to packed 16-Sep-1984 00:16:29 AX-11 Bliss-32 V4.0-74 Page 20 
BASSCVIPF = Convert packed tb float 13-88-1382 90:49:23 BASRTL. RCIBASCVTRP.B3 31 ° a4s 
; 683 969 1 ZSBTTL "BASSCVTPF = Convert packed to float’ 
; 6846 970 1 GLOBAL ROUTINE BASSCVTPF ( ! Convert packed to float 
; 685 971 1 DEST, ' place to store conv. number 
; 686 af 1 SRC, ' number to be converted 
; 687 975 1 SRCLEN, ' number of digits in source 
; 688 974 1 SCALE ' power of ten to mult src 
; 689 975 1 ) : NOVALUE = 
; 690 44 1 
; 691 977 1 lee 
3 23 944 ! FUNCTIONAL DESCRIPTION: 
: $3% 0980 | } Converts a packed number to single floating. 
; 696 34-04 1 ! CALLING SEQUENCE: 
3; 697 09 & 
; 698 0984 1! BASSCVTPF (DEST.wf.r, SRC.rp.r, SRCLEN.rl.v, SCALE.rl.v) 
; 699 0985 1! 
; 700 0986 1 ! FORMAL PARAMETERS: 
3; 701 0987 1! 
; 70 0988 #1! DEST.wf.r place to store the converted number 
; 70 0989 1! SRC. rf.r number to be converte 
3 0990 1! SRCLEN.rl.v number of digits in the source 
; 705 0991 1! SCALE.rl.v power of ten by which the internal 
ae 0992 1! peorgoreeas on of the sourc must be 
; 707 0995 1! multiplied to scale the same as the 
: 70 0994 1! internal representation of the dest. 
: 709 0995 1! 
: 710 0996 1 ! IMPLICIT INPUTS: 
See gi 0997 1! 
3; 712 0998 1! NONE 
: wae 0999 1! 
s 716 1000 1 ! IMPLICIT OUTPUTS: 
3: 715 1001 1! 
: 716 4 1! NONE 
: 717 1003 1! 
; 718 1004 1 ! COMPLETION STATUS: 
: 719 1005 1! 
: 720 1006 1! NONE 
s Tel 1007 1! 
s 22 1008 1 ! SIDE EFFECTS: 
s 23 1009 1! 
; 726 1010 1! NONE 
mT 
; 58 1918 1 
: 728 1014 BEGIN 
: 729 1015 
$ ose Sig OTSSCVTPF_RO (.SCALE, .SRCLEN, .SRC, .DEST); 
: 732 1018 1 END; ! End of routine BASSCVTPF 


OFFC 00000 -ENTRY BasscytPr. Save R2,R3,R4,R5,R6,R7,R8,R9,- : 0970 


9 
ASSCVTRP BASSCVTRP = Convert real to packed 1b-se -1984 00:16:29 AX-11 Bliss-32 V4.0-74 Pa 1 | 
tit BASSCVTPF = Convert packed tb float 1 =308- 138% 90:16:28 YBASRTL SRE BAScV TRE. 63551 oe 49} | 
59 04 aC 00 i MOVL DEST, R9 3; 1016 
25 oP AC DO 00006 MOVL SRC, 3 
0 AC D0 Bp OA MOVL SRCLEN, R7 : 
6 10 AC 00 0000 MOVL SCALE o R6 F 
000000006 00 16 0001 JSB OTSSCVTPF_R9 : 
04 0001 RET ; 1018 


; Routine Size: 25 bytes, Routine Base: _BASSCODE + 0238 


J 9 
Pee BASSCVTRP = Convert real to packed 16-Sep-1984 90: 16:48 eee Bliss-32 yeas ass Page 32 
\- BASSCVTPD = Convert packed to double 14-Sep-1984 11:54:49 BASRTL.SRCJBASCVTRP.B32;1 (12) 
: 734 1019 1 ZSBITTL ‘BASSCVTPD = Convert packed to double’ 
ee: 1020 1 GLOBAL ROUTINE BASSCVTPD ( ! Convert packed to double 
Ee § 1021 1 DEST, ! place to store conv. number 
Fs 1 ¢ 1 SRC, ' number to be converted 
; 738 1 1 SRCLEN, ' number of digits in source 
; 739 1024 1 SCALE ' power of ten to mult src 
; 740 1025 1 ) : NOVALUE = 
3: 741 10 § 1 
; 74 10 1 !¢4 
; 74 1028 1 ! FUNCTIONAL DESCRIPTION: 
: 744 1029 1! ; 
; ee + 9 : } Converts a packed number to double floating. 
: 74 1936 1 ' CALLING SEQUENCE: 
3; 748 10 .% 
: os Ioee : } BASSCVTPD (DEST.wp.r, SRC.rf.r, SRCLEN.rl.v, SCALE.rl.v) 
. Tor 1036 1 ! FORMAL PARAMETERS: 
3 Tag 1037 1! 
; 75 1038 1! DEST.wd.r place to store the converted number 
3; 754 1039 1! SRC.rp.r number to be converted 
3 Ts 1040 1! SRCLEN.rl.v number of digits in source 
; 756 1041 1! SCALE.rl.v power of ten by which the internal 
: 757 Mk 1! Feorgorntatten of the sourc must be 
; 758 1045 1! multiplied to scale the same as the 
s 759 1044 1! internal representation of the dest. 
; 760 1045 1! 
: 761 1046 1 ! IMPLICIT INPUTS: 
; roe 1047 1! 
s 1048 1! NONE 
3: 764 1049 1! 
3; 765 1050 1 ! IMPLICIT OUTPUTS: 
: 766 1051 1! 
3; 767 1026 1! NONE 
3; 768 1053 1! 
3; 769 1054 1 ! COMPLETION STATUS: 
; 770 1055 1! 
: 771 1056 1! NONE 
. T2, 1057 1! 
: 77 1058 1! SIDE EFFECTS: 
: 774 1059 1! 
3; 775 1060 1! NONE 
: 776 1061 1! 
: 777 1996 1 fee 
; 778 10635 1 
; 779 1064 BEGIN 
; 780 1065 
: Ay 1006 OTSSCVTPD_RO (.SCALE, .SRCLEN, .SRC, .DEST); 
: 78 1068 END; ! End of routine BASSCVTPD 


| OFFC 00000 ~ ENTRY BASSCVIPO. Save R2,R3,R4,R5,R6,R7,R8,R9,- : 1020 
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onvert packed to double 


eeyrer 


BASSCVTRP 
BASSEVIPD = 
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6 10 
000000006 0 


; Routine Size: 25 bytes, 


Routine Base: 


4 AC DOD MOVL 
a ee 
€ AC DO OO000A MOVL 
AC DO 0000E OVL 

0 16 0001 $B 

04 0001 RET 


-BASSCODE + 0251 


it rie WSSi83  EBXset SRE SeAScVTAP. 0381 


SCALE, R 
OTS$CVTPD_RO 


rae BF 
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BASSCVTRP = Convert real tc packed 16-Sep-1984 90: 16:48 AX-11 te V4.0-74 Page 3 
ASSCVTPG = Convert packed to gfloat 14-Sep-1984 11:54:49 BASRTL.SRC JBASCVTRP.B32;1 (15) | 
1 ZSBTTL "BASSCVTPG = Convert packed to gfloat' 
GLOBAL ROUTINE BASSCVTPG ( ! Convert packed to gfloat 
. ! place to store conv. number 
SRC, ! mumber to be converted 
SRCLEN, ' number of digits in source 
SCALE ! power of ten to mult src 


) : NOVALUE = 


'e¢ 


FUNCTIONAL DESCRIPTION: 

Converts a packed number to g floating. 
CALLING SEQUENCE: 

BASSCVTPG (DEST.wg.r, SRC.rp.r, SRCLEN.rl.v, SCALE.rl.v) 
FORMAL PARAMETERS: 


DEST.wg.r place to store the converted number 
SRC.rp.r number to be converted 

SRCLEN.rl.v number of digits in the destination 
SCALE.rl.v power of ten by which the internal 


sepeverecst en oF tne, Sours must pe 
lateral fepresentetion of the dest. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
NONE 
SIDE EFFECTS: 
NONE 
BEGIN 
OTSSCVTPG_RO (.SCALE, .SRCLEN, .SRC, .DEST); 
END; ! End of routine BASSCVTPG 


OFFC 00000 -ENTRY a ScviP6. Save R2,R3,R4,R5,R6,R7,R8,R9,- 


S 
10, 


m9 | 
Go konvert perkes' co otteer Ver8Sb=48Be 9:48:83 PaXsRT SR Seascutar.039;1 Page 183 


4 A 1116. 
bin 
, § 
A 
0 


6 
000000006 


msg 


uD 


OOOO 
o-o7"7”97 


fooooo 


? 3 
> 1118 
; Routine Size: 25 bytes, Routine Base: _BASSCODE + 026A 


Nn 9 
= Convert real to packed 16-Sep-19 


BASSCVTRP BASSCVTRP 4 00:16:29 AX-11 Bliss-32 V4.0-74 Page 26 
1-004 BASSCVTPH = Convert packed to hfloat 14-Sep-1984 90: 4:49 EBASRTL SREIBASCVTRP.B3 31 . (14) 
: § 1119 1 ZSBTTL "BASSCVTPH = Convert packed to hfloat' 
; 1120 1 GLOBAL ROUTINE BASSCVTPH ( ! Convert packed to hfloat 
; 838 1121 1 DEST, ! place to store conv. number 
; 839 11 ‘ 1 ° ' number to be converted 
; 840 11 1 SRCLEN, ' number of digits in the source 
; 841 1124 1 SCAL ! power of ten to mult src 
; 84 1125 (1 ) : NOVALUE = 
; «84 11 8 1 ’ 
> 844 11 1 tee 
; 845 1128 1 ! FUNCTIONAL DESCRIPTION: 
; 846 1129 1! 
; eh 1% 9 ' Converts a packed number to hfloating. 
3 HH 3 ¢ : CALLING SEQUENCE: 
H $2) 1135 : BASSCVTPH (DEST.wh.r, SRC.rp.r, SRCLEN.rl.v, SCALE.rl.v) 
; HEE 11 $ 1 ! FORMAL PARAMETERS: 
> 854 bias = 
; 855 1138 1! DEST.wh.r place to store the converted number 
; 856 1139 1! SRC.rp.r number to be converted 
; 857 1140 1! SRCLEN.rl.v number of digits in the source 
; 858 1141 1! SCALE.rl.v power of ten by which the internal 
: 859 1128 73 reoresreces rem of the sourc must be 
; 860 1145 1! multiplied to scale the same as the 
3; 861 1144 1! internal representation of the dest. 
3 566 1145 1! 
; 86 1146 1 =! IMPLICIT INPUTS: 
3; 864 1147 1! 
; 865 1148 1! NONE 
; 866 11449 1! 
3; 867 1150 1 ! IMPLICIT OUTPUTS: 
; 868 1151 1°! 
: 869 1126 1! NONE 
; 870 1153 1! 
: 871 1154 1 =! COMPLETION STATUS: 
; 87 1155 1! 
3; 87 1156 1! NONE 
3; 874 37: 32 
3; 875 1158 1 ! SIDE EFFECTS: 
; 876 1189 1! 
3; 877 11460 1! NONE 
: 878 1161 1°! 
3; 879 1196 1 fe 
3; 880 1163 1 
; 881 1164 BEGIN 
3; 882 1165 
2 Baz 1186 § OTSSCVTPH_RO (.SCALE, .SRCLEN, .SRC, .DEST); 
; 885 1168 1 END; ! End of routine BASSCVTPH 
OFFC 00000 ENTRY BASSCy TPN. Save R2,R3,R4,R5,R6,R7,R8,.R9,- =; 1120. 
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25 bytes, 
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1 !<BLF/PAGE> 
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Lines/CPU Min: 4669 

Lexemes/CPU-Min: 14836 

_— Used: 
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r 67 pages 
Compi 


tion Complete 


Elapsed Tee: 00:32.6 
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| 10 
ASSCVTRP BASSCVTRP = Convert real to packed 1§- Sep-1984 00:16:29 AX-11 Bliss-32 V4.0-74 Page 28 /€ 
tit Basse VTE PH = Convert packed R hfloat 12-88-1383 90:18:28 BASRTL.SRC BASCVT RP. 53351 . a 1 
; 888 1170 1€ ! End of module BASSCVTRP i 
: 889 171 1 7 
; 890 1172 O€ : 
: PSECT SUMMARY i 
; Name Bytes Attributes ; 
; _BASSCODE 668 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) i 
: Library Statistics ; 
; eerie Syabols «cocsece Pages Processing 3 
z File Total Loaded Percent Mapped Time : 
;  _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 0 0 581 00:01.1 ; 
; COMMAND QUALIFIERS 3 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:BASCVTRP/OBJ=O0BJ$:BASCVTRP MSRC$:BASCVTRP/UPDATE=(ENH$:BASCVTRP) : 
; Size: 668 code + 0 data bytes : 
Run Time: 0:15. é 
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